Microsoft Interactive CD Sampler/Microsoft Interactive CD Sampler.iso/DEMOS/C_Automp/AUTOTP/IMD.CST/00013.ls

Text File | 1996-07-16 | 452 b | 17 lines

on resetPuppet ID
  -- Copyright 1995 Interactive Media Design, Inc.
  -- unpuppets sprites identified in list spritePuppet1 or spritePuppet2.
  -- ID is either 1 or 2. Default is spritePuppet1
  global spritePuppet1, spritePuppet2
  if voidP(ID) then
    set ID = 1
  end if
  repeat with x in value("spritePuppet" & ID)
    puppetSprite x, FALSE
  end repeat
  if ID = 1 then
    set spritePuppet1 = []
  else
    set spritePuppet2 = []
  end if
end